Repair change to compilation-context-lines (bug#36832)

* lisp/progmodes/compile.el (compilation-set-window):
Restore proper behaviour when compilation-context-lines is nil,
which is the default.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b7bd2243d90a7dac80c50dafbb39f5f3236afb4a..c1f23b16aa655d4d9b4f78398b922b67c839d694 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2600,7 +2600,8 @@ column zero points to the current message."
                                (goto-char mk)
                               (beginning-of-line 1)
                               (point)))
-         (set-window-point w mk))))
+         (set-window-point w mk))
+        (t (set-window-point w mk))))
 
 (defvar-local compilation-arrow-overlay nil
   "Overlay with the before-string property of `overlay-arrow-string'.